inherited dm_prescritor: Tdm_prescritor
  OldCreateOrder = True
  Left = 270
  Top = 189
  Height = 493
  Width = 921
  inherited sqlConsulta: TSQLQuery
    SQL.Strings = (
      'select'
      '    a.COD_PRESCRITOR,'
      '    a.LIG_COD_GRUPO,'
      '    a.LIG_COD_PROFISSAO,'
      '    a.DESCRICAO,'
      '    a.REGISTRO_NUM,'
      '    a.REGISTRO_UF,'
      '    a.SEXO,'
      '    a.DATA_NASC,'
      '    a.VISITACAO,'
      '    a.CPF_CNPJ,'
      '    a.TEL_RESIDENCIAL,'
      '    a.TEL_COMERCIAL,'
      '    a.TEL_CELULAR,'
      '    a.TEL_FAX,'
      '    a.ESTADO_CIVIL,'
      '    a.CONJUGE_NOME,'
      '    a.CONJUGE_DATA_NASC,'
      '    a.PERC_DESCONTO,'
      '    a.PERC_ACRESCIMO,'
      '    a.SITUACAO,'
      '    a.DATA_CAD,'
      '    a.DATA_ALTERACAO,'
      '    a.email_principal,'
      '    a.email_secundario,'
      '    a.obs,'
      '    case'
      '      when a.visitacao = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '    end as visitacao_desc,'
      '    case'
      '      when a.situacao = '#39'True'#39' then '#39'ATIVO'#39' else '#39'INATIVO'#39
      '    end as situacao_desc,'
      '    b.descricao as grupo,'
      '    c.descricao as profissao,'
      '    c.conselho as profissao_conselho'
      'from F_PRESCRITOR a'
      
        'left join f_prescritor_grupo b on (b.cod_grupo = a.lig_cod_grupo' +
        ')'
      'left join profissao c on (c.cod_profissao = a.lig_cod_profissao)')
    Left = 408
  end
  inherited dspConsulta: TDataSetProvider
    Left = 408
  end
  inherited cdsConsulta: TClientDataSet
    Left = 408
    object cdsConsultaCOD_PRESCRITOR: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_PRESCRITOR'
      Required = True
    end
    object cdsConsultaLIG_COD_GRUPO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_GRUPO'
      Required = True
    end
    object cdsConsultaLIG_COD_PROFISSAO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_PROFISSAO'
      Required = True
    end
    object cdsConsultaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsConsultaREGISTRO_NUM: TIntegerField
      Alignment = taCenter
      FieldName = 'REGISTRO_NUM'
      Required = True
    end
    object cdsConsultaREGISTRO_UF: TStringField
      Alignment = taCenter
      FieldName = 'REGISTRO_UF'
      FixedChar = True
      Size = 2
    end
    object cdsConsultaSEXO: TStringField
      FieldName = 'SEXO'
      Size = 10
    end
    object cdsConsultaDATA_NASC: TDateField
      Alignment = taCenter
      FieldName = 'DATA_NASC'
    end
    object cdsConsultaVISITACAO: TStringField
      Alignment = taCenter
      FieldName = 'VISITACAO'
      Size = 5
    end
    object cdsConsultaCPF_CNPJ: TStringField
      Alignment = taRightJustify
      FieldName = 'CPF_CNPJ'
      Required = True
    end
    object cdsConsultaTEL_RESIDENCIAL: TStringField
      Alignment = taCenter
      FieldName = 'TEL_RESIDENCIAL'
      Size = 15
    end
    object cdsConsultaTEL_COMERCIAL: TStringField
      Alignment = taCenter
      FieldName = 'TEL_COMERCIAL'
      Size = 15
    end
    object cdsConsultaTEL_CELULAR: TStringField
      Alignment = taCenter
      FieldName = 'TEL_CELULAR'
      Size = 15
    end
    object cdsConsultaTEL_FAX: TStringField
      Alignment = taCenter
      FieldName = 'TEL_FAX'
      Size = 15
    end
    object cdsConsultaESTADO_CIVIL: TStringField
      FieldName = 'ESTADO_CIVIL'
      Size = 10
    end
    object cdsConsultaCONJUGE_NOME: TStringField
      FieldName = 'CONJUGE_NOME'
      Size = 100
    end
    object cdsConsultaCONJUGE_DATA_NASC: TDateField
      Alignment = taCenter
      FieldName = 'CONJUGE_DATA_NASC'
    end
    object cdsConsultaPERC_DESCONTO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'PERC_DESCONTO'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsConsultaPERC_ACRESCIMO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'PERC_ACRESCIMO'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsConsultaSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsConsultaDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsConsultaVISITACAO_DESC: TStringField
      Alignment = taCenter
      FieldName = 'VISITACAO_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaSITUACAO_DESC: TStringField
      Alignment = taCenter
      FieldName = 'SITUACAO_DESC'
      Required = True
      FixedChar = True
      Size = 7
    end
    object cdsConsultaGRUPO: TStringField
      FieldName = 'GRUPO'
      Size = 100
    end
    object cdsConsultaPROFISSAO: TStringField
      FieldName = 'PROFISSAO'
      Size = 100
    end
    object cdsConsultaPROFISSAO_CONSELHO: TStringField
      FieldName = 'PROFISSAO_CONSELHO'
      Size = 5
    end
    object cdsConsultaEMAIL_PRINCIPAL: TStringField
      FieldName = 'EMAIL_PRINCIPAL'
      Size = 100
    end
    object cdsConsultaEMAIL_SECUNDARIO: TStringField
      FieldName = 'EMAIL_SECUNDARIO'
      Size = 100
    end
    object cdsConsultaOBS: TStringField
      FieldName = 'OBS'
      Size = 10000
    end
    object cdsConsultasqlConsultaEndereco: TDataSetField
      FieldName = 'sqlConsultaEndereco'
    end
    object cdsConsultasqlConsultaEspec: TDataSetField
      FieldName = 'sqlConsultaEspec'
    end
    object cdsConsultasqlConsultaSec: TDataSetField
      FieldName = 'sqlConsultaSec'
    end
    object cdsConsultasqlConsultaOBS: TDataSetField
      FieldName = 'sqlConsultaOBS'
    end
    object cdsConsultasqlConsultaNotificacao: TDataSetField
      FieldName = 'sqlConsultaNotificacao'
    end
  end
  inherited qryPKChave: TSQLQuery
    SQL.Strings = (
      'SELECT GEN_ID(gen_f_prescritor,1)'
      'FROM RDB$DATABASE')
    Left = 331
    Top = 212
  end
  inherited dspRegistro: TDataSetProvider
    Options = [poCascadeDeletes, poCascadeUpdates]
    Left = 480
  end
  inherited cdsRegistro: TClientDataSet
    Left = 480
    object cdsRegistroCOD_PRESCRITOR: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_PRESCRITOR'
      Required = True
    end
    object cdsRegistroLIG_COD_GRUPO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_GRUPO'
      Required = True
    end
    object cdsRegistroLIG_COD_PROFISSAO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_PROFISSAO'
      Required = True
    end
    object cdsRegistroDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsRegistroREGISTRO_NUM: TIntegerField
      Alignment = taCenter
      FieldName = 'REGISTRO_NUM'
      Required = True
    end
    object cdsRegistroREGISTRO_UF: TStringField
      Alignment = taCenter
      FieldName = 'REGISTRO_UF'
      FixedChar = True
      Size = 2
    end
    object cdsRegistroSEXO: TStringField
      FieldName = 'SEXO'
      Size = 10
    end
    object cdsRegistroDATA_NASC: TDateField
      Alignment = taCenter
      FieldName = 'DATA_NASC'
    end
    object cdsRegistroVISITACAO: TStringField
      Alignment = taCenter
      FieldName = 'VISITACAO'
      Size = 5
    end
    object cdsRegistroCPF_CNPJ: TStringField
      FieldName = 'CPF_CNPJ'
      Required = True
    end
    object cdsRegistroTEL_RESIDENCIAL: TStringField
      Alignment = taCenter
      FieldName = 'TEL_RESIDENCIAL'
      Size = 15
    end
    object cdsRegistroTEL_COMERCIAL: TStringField
      Alignment = taCenter
      FieldName = 'TEL_COMERCIAL'
      Size = 15
    end
    object cdsRegistroTEL_CELULAR: TStringField
      Alignment = taCenter
      FieldName = 'TEL_CELULAR'
      Size = 15
    end
    object cdsRegistroTEL_FAX: TStringField
      Alignment = taCenter
      FieldName = 'TEL_FAX'
      Size = 15
    end
    object cdsRegistroESTADO_CIVIL: TStringField
      FieldName = 'ESTADO_CIVIL'
      Size = 10
    end
    object cdsRegistroCONJUGE_NOME: TStringField
      FieldName = 'CONJUGE_NOME'
      Size = 100
    end
    object cdsRegistroCONJUGE_DATA_NASC: TDateField
      Alignment = taCenter
      FieldName = 'CONJUGE_DATA_NASC'
    end
    object cdsRegistroPERC_DESCONTO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'PERC_DESCONTO'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsRegistroPERC_ACRESCIMO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'PERC_ACRESCIMO'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsRegistroSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsRegistroDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsRegistroDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsRegistroEMAIL_PRINCIPAL: TStringField
      FieldName = 'EMAIL_PRINCIPAL'
      Size = 100
    end
    object cdsRegistroEMAIL_SECUNDARIO: TStringField
      FieldName = 'EMAIL_SECUNDARIO'
      Size = 100
    end
    object cdsRegistroOBS: TStringField
      FieldName = 'OBS'
      Size = 10000
    end
    object cdsRegistrosqlPrescritorEndereco: TDataSetField
      FieldName = 'sqlPrescritorEndereco'
    end
    object cdsRegistrosqlPrescritorNotificacao: TDataSetField
      FieldName = 'sqlPrescritorNotificacao'
    end
  end
  inherited sqlRegistro: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRESCRITOR'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '    a.COD_PRESCRITOR,'
      '    a.LIG_COD_GRUPO,'
      '    a.LIG_COD_PROFISSAO,'
      '    a.DESCRICAO,'
      '    a.REGISTRO_NUM,'
      '    a.REGISTRO_UF,'
      '    a.SEXO,'
      '    a.DATA_NASC,'
      '    a.VISITACAO,'
      '    a.CPF_CNPJ,'
      '    a.TEL_RESIDENCIAL,'
      '    a.TEL_COMERCIAL,'
      '    a.TEL_CELULAR,'
      '    a.TEL_FAX,'
      '    a.ESTADO_CIVIL,'
      '    a.CONJUGE_NOME,'
      '    a.CONJUGE_DATA_NASC,'
      '    a.PERC_DESCONTO,'
      '    a.PERC_ACRESCIMO,'
      '    a.SITUACAO,'
      '    a.DATA_CAD,'
      '    a.DATA_ALTERACAO,'
      '    a.email_principal,'
      '    a.email_secundario,'
      '    a.OBS'
      'from F_PRESCRITOR a'
      'where a.cod_prescritor = :COD_PRESCRITOR')
    Left = 480
  end
  object sqlTipoEndereco: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'select'
      '  t.cod_tipo_endereco,'
      '  t.descricao'
      'from tipo_endereco t'
      'where t.situacao = '#39'True'#39
      'order by t.descricao')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 432
    Top = 212
  end
  object dspTipoEndereco: TDataSetProvider
    DataSet = sqlTipoEndereco
    Left = 432
    Top = 263
  end
  object cdsTipoEndereco: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspTipoEndereco'
    Left = 432
    Top = 314
  end
  object dsMestre_Detalhe: TDataSource
    DataSet = sqlRegistro
    Left = 560
    Top = 18
  end
  object sqlPrescritorEndereco: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRESCRITOR'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '    a.cod_endereco,'
      '    a.lig_cod_prescritor,'
      '    a.lig_cod_tipo_endereco,'
      '    a.cep,'
      '    a.endereco,'
      '    a.numero,'
      '    a.complemento,'
      '    a.bairro,'
      '    a.localidade,'
      '    a.uf,'
      '    a.data_cad,'
      '    a.data_alteracao,'
      '    b.descricao as tipo_endereco'
      'from F_PRESCRITOR_ENDERECO a'
      
        'left join tipo_endereco b on (b.cod_tipo_endereco = a.lig_cod_ti' +
        'po_endereco)'
      'where a.lig_cod_prescritor = :cod_prescritor')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 664
    Top = 18
    object sqlPrescritorEnderecoCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      Required = True
    end
    object sqlPrescritorEnderecoLIG_COD_PRESCRITOR: TIntegerField
      FieldName = 'LIG_COD_PRESCRITOR'
      Required = True
    end
    object sqlPrescritorEnderecoLIG_COD_TIPO_ENDERECO: TIntegerField
      FieldName = 'LIG_COD_TIPO_ENDERECO'
      Required = True
    end
    object sqlPrescritorEnderecoCEP: TStringField
      FieldName = 'CEP'
      Required = True
      Size = 10
    end
    object sqlPrescritorEnderecoENDERECO: TStringField
      FieldName = 'ENDERECO'
      Required = True
      Size = 100
    end
    object sqlPrescritorEnderecoNUMERO: TStringField
      FieldName = 'NUMERO'
      Required = True
      Size = 4
    end
    object sqlPrescritorEnderecoCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 100
    end
    object sqlPrescritorEnderecoBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Required = True
      Size = 100
    end
    object sqlPrescritorEnderecoLOCALIDADE: TStringField
      FieldName = 'LOCALIDADE'
      Required = True
      Size = 100
    end
    object sqlPrescritorEnderecoUF: TStringField
      FieldName = 'UF'
      FixedChar = True
      Size = 2
    end
    object sqlPrescritorEnderecoDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlPrescritorEnderecoDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object sqlPrescritorEnderecoTIPO_ENDERECO: TStringField
      FieldName = 'TIPO_ENDERECO'
      ProviderFlags = []
      Size = 100
    end
  end
  object cdsPrescritorEndereco: TClientDataSet
    Aggregates = <>
    DataSetField = cdsRegistrosqlPrescritorEndereco
    Params = <>
    Left = 787
    Top = 18
    object cdsPrescritorEnderecoCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      Required = True
    end
    object cdsPrescritorEnderecoLIG_COD_PRESCRITOR: TIntegerField
      FieldName = 'LIG_COD_PRESCRITOR'
      Required = True
    end
    object cdsPrescritorEnderecoLIG_COD_TIPO_ENDERECO: TIntegerField
      FieldName = 'LIG_COD_TIPO_ENDERECO'
      Required = True
    end
    object cdsPrescritorEnderecoCEP: TStringField
      FieldName = 'CEP'
      Required = True
      Size = 10
    end
    object cdsPrescritorEnderecoENDERECO: TStringField
      FieldName = 'ENDERECO'
      Required = True
      Size = 100
    end
    object cdsPrescritorEnderecoNUMERO: TStringField
      FieldName = 'NUMERO'
      Required = True
      Size = 4
    end
    object cdsPrescritorEnderecoCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 100
    end
    object cdsPrescritorEnderecoBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Required = True
      Size = 100
    end
    object cdsPrescritorEnderecoLOCALIDADE: TStringField
      FieldName = 'LOCALIDADE'
      Required = True
      Size = 100
    end
    object cdsPrescritorEnderecoUF: TStringField
      FieldName = 'UF'
      FixedChar = True
      Size = 2
    end
    object cdsPrescritorEnderecoDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsPrescritorEnderecoDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsPrescritorEnderecoTIPO_ENDERECO: TStringField
      FieldName = 'TIPO_ENDERECO'
      ProviderFlags = []
      Size = 100
    end
  end
  object qryPKEndereco: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT GEN_ID(gen_f_prescritor_endereco,1)'
      'FROM RDB$DATABASE')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 331
    Top = 262
    object qryPKEnderecoGEN_ID: TFMTBCDField
      FieldName = 'GEN_ID'
      Required = True
      Precision = 15
      Size = 0
    end
  end
  object cdsAuxEndereco: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 779
    Top = 212
    Data = {
      1A0100009619E0BD0100000018000000090000000000030000001A01144C4947
      5F434F445F5449504F454E44455245434F04000100000000000D5449504F5F45
      4E44455245434F01004900000001000557494454480200020064000343455001
      00490000000100055749445448020002000A0008454E44455245434F01004900
      00000100055749445448020002006400064E554D45524F010049000000010005
      57494454480200020005000B434F4D504C454D454E544F010049000000010005
      57494454480200020064000642414952524F0100490000000100055749445448
      0200020064000A4C4F43414C4944414445010049000000010005574944544802
      000200640002554601004900000001000557494454480200020002000000}
    object cdsAuxEnderecoLIG_COD_TIPOENDERECO: TIntegerField
      FieldName = 'LIG_COD_TIPOENDERECO'
    end
    object cdsAuxEnderecoTIPO_ENDERECO: TStringField
      FieldName = 'TIPO_ENDERECO'
      Size = 100
    end
    object cdsAuxEnderecoCEP: TStringField
      FieldName = 'CEP'
      Size = 10
    end
    object cdsAuxEnderecoENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 100
    end
    object cdsAuxEnderecoNUMERO: TStringField
      FieldName = 'NUMERO'
      Size = 5
    end
    object cdsAuxEnderecoCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 100
    end
    object cdsAuxEnderecoBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 100
    end
    object cdsAuxEnderecoLOCALIDADE: TStringField
      FieldName = 'LOCALIDADE'
      Size = 100
    end
    object cdsAuxEnderecoUF: TStringField
      FieldName = 'UF'
      Size = 2
    end
  end
  object dsMestre_Detalhe_Consulta: TDataSource
    DataSet = sqlConsulta
    Left = 305
    Top = 18
  end
  object sqlConsultaEndereco: TSQLQuery
    DataSource = dsMestre_Detalhe_Consulta
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRESCRITOR'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '    a.cod_endereco,'
      '    a.lig_cod_prescritor,'
      '    a.lig_cod_tipo_endereco,'
      '    a.cep,'
      '    a.endereco,'
      '    a.numero,'
      '    a.complemento,'
      '    a.bairro,'
      '    a.localidade,'
      '    a.uf,'
      '    a.data_cad,'
      '    a.data_alteracao,'
      '    b.descricao as tipo_endereco'
      'from F_PRESCRITOR_ENDERECO a'
      
        'left join tipo_endereco b on (b.cod_tipo_endereco = a.lig_cod_ti' +
        'po_endereco)'
      'where a.lig_cod_prescritor = :cod_prescritor'
      'order by b.descricao')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 177
    Top = 18
    object sqlConsultaEnderecoCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      Required = True
    end
    object sqlConsultaEnderecoLIG_COD_PRESCRITOR: TIntegerField
      FieldName = 'LIG_COD_PRESCRITOR'
      Required = True
    end
    object sqlConsultaEnderecoLIG_COD_TIPO_ENDERECO: TIntegerField
      FieldName = 'LIG_COD_TIPO_ENDERECO'
      Required = True
    end
    object sqlConsultaEnderecoCEP: TStringField
      FieldName = 'CEP'
      Required = True
      Size = 10
    end
    object sqlConsultaEnderecoENDERECO: TStringField
      FieldName = 'ENDERECO'
      Required = True
      Size = 100
    end
    object sqlConsultaEnderecoNUMERO: TStringField
      FieldName = 'NUMERO'
      Required = True
      Size = 4
    end
    object sqlConsultaEnderecoCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 100
    end
    object sqlConsultaEnderecoBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Required = True
      Size = 100
    end
    object sqlConsultaEnderecoLOCALIDADE: TStringField
      FieldName = 'LOCALIDADE'
      Required = True
      Size = 100
    end
    object sqlConsultaEnderecoUF: TStringField
      FieldName = 'UF'
      FixedChar = True
      Size = 2
    end
    object sqlConsultaEnderecoDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlConsultaEnderecoDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object sqlConsultaEnderecoTIPO_ENDERECO: TStringField
      FieldName = 'TIPO_ENDERECO'
      Size = 100
    end
  end
  object cdsConsultaEndereco: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsultaEndereco
    Params = <>
    Left = 62
    Top = 18
    object cdsConsultaEnderecoCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      Required = True
    end
    object cdsConsultaEnderecoLIG_COD_PRESCRITOR: TIntegerField
      FieldName = 'LIG_COD_PRESCRITOR'
      Required = True
    end
    object cdsConsultaEnderecoLIG_COD_TIPO_ENDERECO: TIntegerField
      FieldName = 'LIG_COD_TIPO_ENDERECO'
      Required = True
    end
    object cdsConsultaEnderecoCEP: TStringField
      FieldName = 'CEP'
      Required = True
      Size = 10
    end
    object cdsConsultaEnderecoENDERECO: TStringField
      FieldName = 'ENDERECO'
      Required = True
      Size = 100
    end
    object cdsConsultaEnderecoNUMERO: TStringField
      FieldName = 'NUMERO'
      Required = True
      Size = 4
    end
    object cdsConsultaEnderecoCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 100
    end
    object cdsConsultaEnderecoBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Required = True
      Size = 100
    end
    object cdsConsultaEnderecoLOCALIDADE: TStringField
      FieldName = 'LOCALIDADE'
      Required = True
      Size = 100
    end
    object cdsConsultaEnderecoUF: TStringField
      FieldName = 'UF'
      FixedChar = True
      Size = 2
    end
    object cdsConsultaEnderecoDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaEnderecoDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsConsultaEnderecoTIPO_ENDERECO: TStringField
      FieldName = 'TIPO_ENDERECO'
      Size = 100
    end
  end
  object sqlEspecialidade: TSQLQuery
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'profissao'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '  a.cod_especialidade,'
      '  a.cod_especialidade ||'#39' | '#39'|| a.descricao as descricao'
      'from PROFISSAO_ESPECIALIDADE a'
      
        'where a.lig_cod_profissao = :profissao and a.cod_especialidade >' +
        ' 0')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 536
    Top = 212
  end
  object cdsEspecialidade: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspEspecialidade'
    Left = 536
    Top = 314
    object cdsEspecialidadeCOD_ESPECIALIDADE: TIntegerField
      FieldName = 'COD_ESPECIALIDADE'
      Required = True
    end
    object cdsEspecialidadeDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 114
    end
  end
  object dspEspecialidade: TDataSetProvider
    DataSet = sqlEspecialidade
    Left = 536
    Top = 263
  end
  object sqlConsultaEspec: TSQLQuery
    DataSource = dsMestre_Detalhe_Consulta
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRESCRITOR'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  a.lig_cod_prescritor,'
      '  a.lig_cod_especialidade,'
      '  b.descricao,'
      '  case'
      '    when b.situacao = '#39'True'#39' then '#39'ATIVO'#39' else '#39'INATIVO'#39
      '  end as situacao_desc'
      'from f_prescritor_especialidade a'
      
        'left join profissao_especialidade b on (b.cod_especialidade = a.' +
        'lig_cod_especialidade)'
      'where a.lig_cod_prescritor = :cod_prescritor'
      'order by b.descricao')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 177
    Top = 64
    object sqlConsultaEspecLIG_COD_PRESCRITOR: TIntegerField
      FieldName = 'LIG_COD_PRESCRITOR'
      Required = True
    end
    object sqlConsultaEspecLIG_COD_ESPECIALIDADE: TIntegerField
      FieldName = 'LIG_COD_ESPECIALIDADE'
      Required = True
    end
    object sqlConsultaEspecDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 100
    end
    object sqlConsultaEspecSITUACAO_DESC: TStringField
      FieldName = 'SITUACAO_DESC'
      Required = True
      FixedChar = True
      Size = 7
    end
  end
  object cdsConsultaEspec: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsultaEspec
    Params = <>
    Left = 62
    Top = 64
    object cdsConsultaEspecLIG_COD_PRESCRITOR: TIntegerField
      FieldName = 'LIG_COD_PRESCRITOR'
      Required = True
    end
    object cdsConsultaEspecLIG_COD_ESPECIALIDADE: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_ESPECIALIDADE'
      Required = True
    end
    object cdsConsultaEspecDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 100
    end
    object cdsConsultaEspecSITUACAO_DESC: TStringField
      Alignment = taCenter
      FieldName = 'SITUACAO_DESC'
      Required = True
      FixedChar = True
      Size = 7
    end
  end
  object spInserirEspecialidade: TSQLStoredProc
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRESCRITOR'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'COD_ESPECIALIDADE'
        ParamType = ptInput
      end>
    SQLConnection = dmGeral.SQLConnectionBD
    StoredProcName = 'PRESC_INSERIR_ESPECIALIDADE'
    Left = 664
    Top = 212
  end
  object spRemoverEspecialidade: TSQLStoredProc
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRESCRITOR'
        ParamType = ptInput
      end>
    SQLConnection = dmGeral.SQLConnectionBD
    StoredProcName = 'PRESC_REMOVER_ESPECIALIDADE'
    Left = 664
    Top = 260
  end
  object sqlConsultaSec: TSQLQuery
    DataSource = dsMestre_Detalhe_Consulta
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRESCRITOR'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  a.cod_secretaria,'
      '  a.descricao,'
      '  a.tel_comercial,'
      '  a.tel_celular,'
      '  a.email,'
      '  a.situacao,'
      '  case'
      '    when b.situacao = '#39'True'#39' then '#39'ATIVO'#39' else '#39'INATIVO'#39
      '  end as situacao_desc'
      'from f_prescritor_secretaria a'
      
        'left join f_prescritor b on (b.cod_prescritor = a.lig_cod_prescr' +
        'itor)'
      'where a.lig_cod_prescritor = :cod_prescritor'
      'order by a.descricao')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 177
    Top = 112
    object sqlConsultaSecCOD_SECRETARIA: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_SECRETARIA'
      Required = True
    end
    object sqlConsultaSecDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object sqlConsultaSecTEL_COMERCIAL: TStringField
      Alignment = taCenter
      FieldName = 'TEL_COMERCIAL'
    end
    object sqlConsultaSecTEL_CELULAR: TStringField
      Alignment = taCenter
      FieldName = 'TEL_CELULAR'
    end
    object sqlConsultaSecEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 100
    end
    object sqlConsultaSecSITUACAO_DESC: TStringField
      Alignment = taCenter
      FieldName = 'SITUACAO_DESC'
      Required = True
      FixedChar = True
      Size = 7
    end
    object sqlConsultaSecSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
  end
  object cdsConsultaSec: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsultaSec
    Params = <>
    Left = 62
    Top = 112
    object cdsConsultaSecCOD_SECRETARIA: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_SECRETARIA'
      Required = True
    end
    object cdsConsultaSecDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsConsultaSecTEL_COMERCIAL: TStringField
      Alignment = taCenter
      FieldName = 'TEL_COMERCIAL'
    end
    object cdsConsultaSecTEL_CELULAR: TStringField
      Alignment = taCenter
      FieldName = 'TEL_CELULAR'
    end
    object cdsConsultaSecEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 100
    end
    object cdsConsultaSecSITUACAO_DESC: TStringField
      Alignment = taCenter
      FieldName = 'SITUACAO_DESC'
      Required = True
      FixedChar = True
      Size = 7
    end
    object cdsConsultaSecSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
  end
  object sqlConsultaOBS: TSQLQuery
    DataSource = dsMestre_Detalhe_Consulta
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRESCRITOR'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  a.COD_OBS,'
      '  a.LIG_COD_PRESCRITOR,'
      '  a.LIG_COD_TIPO_OBS,'
      '  a.DESCRICAO,'
      '  a.MOSTRA_FICHA,'
      '  a.MOSTRA_TELA,'
      '  a.MOSTRA_RECEITA,'
      '  a.DATA_CAD,'
      '  a.DATA_ALTERACAO,'
      '  b.descricao as tipo_obs,'
      '  case'
      '    when a.mostra_ficha = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '  end as mostra_ficha_desc,'
      '  case'
      '    when a.mostra_tela = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '  end as mostra_tela_desc,'
      '  case'
      '    when a.mostra_receita = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '  end as mostra_receita_desc'
      'from F_PRESCRITOR_OBSERVACAO a'
      'left join tipo_observacao b on (b.cod_obs = a.lig_cod_tipo_obs)'
      'where a.lig_cod_prescritor = :cod_prescritor'
      'order by b.descricao')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 177
    Top = 160
    object sqlConsultaOBSCOD_OBS: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_OBS'
      Required = True
    end
    object sqlConsultaOBSLIG_COD_PRESCRITOR: TIntegerField
      FieldName = 'LIG_COD_PRESCRITOR'
      Required = True
    end
    object sqlConsultaOBSLIG_COD_TIPO_OBS: TIntegerField
      FieldName = 'LIG_COD_TIPO_OBS'
      Required = True
    end
    object sqlConsultaOBSDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 10000
    end
    object sqlConsultaOBSMOSTRA_FICHA: TStringField
      FieldName = 'MOSTRA_FICHA'
      Size = 5
    end
    object sqlConsultaOBSMOSTRA_TELA: TStringField
      FieldName = 'MOSTRA_TELA'
      Size = 5
    end
    object sqlConsultaOBSMOSTRA_RECEITA: TStringField
      FieldName = 'MOSTRA_RECEITA'
      Size = 5
    end
    object sqlConsultaOBSDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object sqlConsultaOBSDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
    object sqlConsultaOBSTIPO_OBS: TStringField
      FieldName = 'TIPO_OBS'
      Size = 100
    end
    object sqlConsultaOBSMOSTRA_FICHA_DESC: TStringField
      Alignment = taCenter
      FieldName = 'MOSTRA_FICHA_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object sqlConsultaOBSMOSTRA_TELA_DESC: TStringField
      Alignment = taCenter
      FieldName = 'MOSTRA_TELA_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object sqlConsultaOBSMOSTRA_RECEITA_DESC: TStringField
      Alignment = taCenter
      FieldName = 'MOSTRA_RECEITA_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
  end
  object cdsConsultaObservacao: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsultaOBS
    Params = <>
    Left = 62
    Top = 160
    object cdsConsultaObservacaoCOD_OBS: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_OBS'
      Required = True
    end
    object cdsConsultaObservacaoLIG_COD_PRESCRITOR: TIntegerField
      FieldName = 'LIG_COD_PRESCRITOR'
      Required = True
    end
    object cdsConsultaObservacaoLIG_COD_TIPO_OBS: TIntegerField
      FieldName = 'LIG_COD_TIPO_OBS'
      Required = True
    end
    object cdsConsultaObservacaoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 10000
    end
    object cdsConsultaObservacaoMOSTRA_FICHA: TStringField
      FieldName = 'MOSTRA_FICHA'
      Size = 5
    end
    object cdsConsultaObservacaoMOSTRA_TELA: TStringField
      FieldName = 'MOSTRA_TELA'
      Size = 5
    end
    object cdsConsultaObservacaoMOSTRA_RECEITA: TStringField
      FieldName = 'MOSTRA_RECEITA'
      Size = 5
    end
    object cdsConsultaObservacaoDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaObservacaoDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsConsultaObservacaoTIPO_OBS: TStringField
      FieldName = 'TIPO_OBS'
      Size = 100
    end
    object cdsConsultaObservacaoMOSTRA_FICHA_DESC: TStringField
      Alignment = taCenter
      FieldName = 'MOSTRA_FICHA_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaObservacaoMOSTRA_TELA_DESC: TStringField
      Alignment = taCenter
      FieldName = 'MOSTRA_TELA_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaObservacaoMOSTRA_RECEITA_DESC: TStringField
      Alignment = taCenter
      FieldName = 'MOSTRA_RECEITA_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
  end
  object sqlPrescritorNotificacao: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRESCRITOR'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '    a.COD_NOTIFICACAO,'
      '    a.LIG_COD_PRESCRITOR,'
      '    a.TALAO_NUM_INICIAL,'
      '    a.TALAO_NUM_FINAL,'
      '    a.DATA_EXTRAVIO,'
      '    a.MOTIVO,'
      '    a.DATA_CAD,'
      '    a.DATA_ALTERACAO'
      'from F_PRESCRITOR_NOTIFICACAO a'
      
        'left join f_prescritor b on (b.cod_prescritor = a.lig_cod_prescr' +
        'itor)'
      'where b.cod_prescritor = :cod_prescritor'
      'order by a.data_cad desc')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 664
    Top = 64
    object sqlPrescritorNotificacaoCOD_NOTIFICACAO: TIntegerField
      FieldName = 'COD_NOTIFICACAO'
      Required = True
    end
    object sqlPrescritorNotificacaoLIG_COD_PRESCRITOR: TIntegerField
      FieldName = 'LIG_COD_PRESCRITOR'
      Required = True
    end
    object sqlPrescritorNotificacaoTALAO_NUM_INICIAL: TIntegerField
      FieldName = 'TALAO_NUM_INICIAL'
      Required = True
    end
    object sqlPrescritorNotificacaoTALAO_NUM_FINAL: TIntegerField
      FieldName = 'TALAO_NUM_FINAL'
      Required = True
    end
    object sqlPrescritorNotificacaoDATA_EXTRAVIO: TDateField
      FieldName = 'DATA_EXTRAVIO'
    end
    object sqlPrescritorNotificacaoMOTIVO: TStringField
      FieldName = 'MOTIVO'
      Required = True
      Size = 100
    end
    object sqlPrescritorNotificacaoDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlPrescritorNotificacaoDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object cdsPrescritorNotificacao: TClientDataSet
    Aggregates = <>
    DataSetField = cdsRegistrosqlPrescritorNotificacao
    Params = <>
    Left = 787
    Top = 64
    object cdsPrescritorNotificacaoCOD_NOTIFICACAO: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_NOTIFICACAO'
      Required = True
    end
    object cdsPrescritorNotificacaoLIG_COD_PRESCRITOR: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_PRESCRITOR'
      Required = True
    end
    object cdsPrescritorNotificacaoTALAO_NUM_INICIAL: TIntegerField
      Alignment = taCenter
      FieldName = 'TALAO_NUM_INICIAL'
      Required = True
    end
    object cdsPrescritorNotificacaoTALAO_NUM_FINAL: TIntegerField
      Alignment = taCenter
      FieldName = 'TALAO_NUM_FINAL'
      Required = True
    end
    object cdsPrescritorNotificacaoDATA_EXTRAVIO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_EXTRAVIO'
    end
    object cdsPrescritorNotificacaoMOTIVO: TStringField
      FieldName = 'MOTIVO'
      Required = True
      Size = 100
    end
    object cdsPrescritorNotificacaoDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsPrescritorNotificacaoDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object cdsAuxNotificacao: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 779
    Top = 260
    Data = {
      980000009619E0BD0100000018000000050000000000030000009800124C4947
      5F434F445F50524553435249544F5204000100000000001154414C414F5F4E55
      4D5F494E494349414C04000100000000000F54414C414F5F4E554D5F46494E41
      4C04000100000000000D444154415F455854524156494F040006000000000006
      4D4F5449564F01004900000001000557494454480200020064000000}
    object cdsAuxNotificacaoLIG_COD_PRESCRITOR: TIntegerField
      FieldName = 'LIG_COD_PRESCRITOR'
    end
    object cdsAuxNotificacaoTALAO_NUM_INICIAL: TIntegerField
      Alignment = taCenter
      FieldName = 'TALAO_NUM_INICIAL'
    end
    object cdsAuxNotificacaoTALAO_NUM_FINAL: TIntegerField
      Alignment = taCenter
      FieldName = 'TALAO_NUM_FINAL'
    end
    object cdsAuxNotificacaoDATA_EXTRAVIO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_EXTRAVIO'
    end
    object cdsAuxNotificacaoMOTIVO: TStringField
      FieldName = 'MOTIVO'
      Size = 100
    end
  end
  object sqlConsultaNotificacao: TSQLQuery
    DataSource = dsMestre_Detalhe_Consulta
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRESCRITOR'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '    a.COD_NOTIFICACAO,'
      '    a.LIG_COD_PRESCRITOR,'
      '    a.TALAO_NUM_INICIAL,'
      '    a.TALAO_NUM_FINAL,'
      '    a.DATA_EXTRAVIO,'
      '    a.MOTIVO,'
      '    a.DATA_CAD,'
      '    a.DATA_ALTERACAO'
      'from F_PRESCRITOR_NOTIFICACAO a'
      
        'left join f_prescritor b on (b.cod_prescritor = a.lig_cod_prescr' +
        'itor)'
      'where b.cod_prescritor = :cod_prescritor'
      'order by a.data_cad desc')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 179
    Top = 208
    object sqlConsultaNotificacaoCOD_NOTIFICACAO: TIntegerField
      FieldName = 'COD_NOTIFICACAO'
      Required = True
    end
    object sqlConsultaNotificacaoLIG_COD_PRESCRITOR: TIntegerField
      FieldName = 'LIG_COD_PRESCRITOR'
      Required = True
    end
    object sqlConsultaNotificacaoTALAO_NUM_INICIAL: TIntegerField
      FieldName = 'TALAO_NUM_INICIAL'
      Required = True
    end
    object sqlConsultaNotificacaoTALAO_NUM_FINAL: TIntegerField
      FieldName = 'TALAO_NUM_FINAL'
      Required = True
    end
    object sqlConsultaNotificacaoDATA_EXTRAVIO: TDateField
      FieldName = 'DATA_EXTRAVIO'
    end
    object sqlConsultaNotificacaoMOTIVO: TStringField
      FieldName = 'MOTIVO'
      Required = True
      Size = 100
    end
    object sqlConsultaNotificacaoDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlConsultaNotificacaoDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object cdsConsultaNotificacao: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsultaNotificacao
    Params = <>
    Left = 62
    Top = 208
    object cdsConsultaNotificacaoCOD_NOTIFICACAO: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_NOTIFICACAO'
      Required = True
    end
    object cdsConsultaNotificacaoLIG_COD_PRESCRITOR: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_PRESCRITOR'
      Required = True
    end
    object cdsConsultaNotificacaoTALAO_NUM_INICIAL: TIntegerField
      Alignment = taCenter
      FieldName = 'TALAO_NUM_INICIAL'
      Required = True
    end
    object cdsConsultaNotificacaoTALAO_NUM_FINAL: TIntegerField
      Alignment = taCenter
      FieldName = 'TALAO_NUM_FINAL'
      Required = True
    end
    object cdsConsultaNotificacaoDATA_EXTRAVIO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_EXTRAVIO'
    end
    object cdsConsultaNotificacaoMOTIVO: TStringField
      FieldName = 'MOTIVO'
      Required = True
      Size = 100
    end
    object cdsConsultaNotificacaoDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaNotificacaoDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object qryPKNotificacao: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT GEN_ID(gen_f_prescritor_notificacao,1)'
      'FROM RDB$DATABASE')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 331
    Top = 311
    object qryPKNotificacaoGEN_ID: TFMTBCDField
      FieldName = 'GEN_ID'
      Required = True
      Precision = 15
      Size = 0
    end
  end
end
